home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / PluggableAdaptor.p < prev    next >
Text File  |  2004-01-31  |  5KB  |  116 lines
  1. pTempVar <- <primitive 110 19 >
  2. <primitive 112 pTempVar 1  " renderingValueUsingSubject: " \
  3.   #( #[ 16r10 16r80 16r00 16rF6 16r05 16r20 16r21 16r81 16r01 16rF3 16rF2 \
  4.         16r20 16r0A 16r15 16r73 16r05 16r1E 16r52 16rB0 16r72 16r22 \
  5.         16r52 16r23 16rD0 16rF2 16r23 16r22 16r81 16r02 16r74 16r24 \
  6.         16rA6 16r21 16r80 16r03 16r81 16r04 16rF2 16r24 16r0A 16r1F \
  7.         16rA5 16rF3 16rF5] \
  8.     #( #isProtocolAdaptor #valueUsingSubject: #makeAdaptorForRenderingStoreLeafInto: \
  9.         #asValue #subjectChannel:  )) >
  10.  
  11. <primitive 112 pTempVar 2  " makeAdaptorForRenderingStoreLeafInto: " \
  12.   #( #[ 16r21 16r51 16r20 16rD0 16rF2 16r10 16r80 16r00 16rF7 16r0A 16r10 \
  13.         16r0A 16r15 16r60 16r10 16r21 16r81 16r01 16rF8 16r02 16rF2 \
  14.         16r21 16rF3 16rF5] \
  15.     #( #isProtocolAdaptor #makeAdaptorForRenderingStoreLeafInto:  )) >
  16.  
  17. <primitive 112 pTempVar 3  " isProtocolAdaptor " \
  18.   #( #[ 16r5B 16rF3 16rF5] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 4  " removeDependent: " \
  22.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r90 16r01 16rA1 16rF7 16r04 \
  23.         16r10 16r20 16r81 16r00 16rF2 16rF5] \
  24.     #( #removeDependent: #dependents  )) >
  25.  
  26. <primitive 112 pTempVar 5  " addDependent: " \
  27.   #( #[ 16r20 16r90 16r00 16rA1 16rF7 16r04 16r10 16r20 16r81 16r01 16rF2 \
  28.         16r20 16r21 16r91 16r01 16rF2 16rF5] \
  29.     #( #dependents #addDependent:  )) >
  30.  
  31. <primitive 112 pTempVar 6  " update:with:from: " \
  32.   #( #[ 16r13 16r10 16r21 16r22 16r83 16r00 16rF7 16r04 16r20 16r31 16r81 \
  33.         16r02 16rF2 16rF5] \
  34.     #( #value:value:value: #value #changed:  )) >
  35.  
  36. <primitive 112 pTempVar 7  " valueUsingSubject: " \
  37.   #( #[ 16r21 16r5D 16rB6 16rF7 16r02 16r5D 16rF3 16rF2 16r11 16r21 16rB5 \
  38.         16rF3 16rF5] \
  39.     #(  )) >
  40.  
  41. <primitive 112 pTempVar 8  " value " \
  42.   #( #[ 16r11 16r10 16rB5 16rF3 16rF5] \
  43.     #(  )) >
  44.  
  45. <primitive 112 pTempVar 9  " setValue: " \
  46.   #( #[ 16r12 16r10 16r21 16rD3 16rF2 16rF5] \
  47.     #(  )) >
  48.  
  49. <primitive 112 pTempVar 10  " model " \
  50.   #( #[ 16r10 16rF3 16rF5] \
  51.     #(  )) >
  52.  
  53. <primitive 112 pTempVar 11  " selectValue: " \
  54.   #( #[ 16r5D 16r72 16r20 16rE1 16r03 16r07 16r23 16rA5 16r21 16rC9 16rF1 \
  55.         16r72 16rF3 16rE2 16r03 16r13 16r24 16rF7 16r05 16r23 16r21 \
  56.         16rB5 16rF8 16r0A 16rF2 16r23 16rA5 16r21 16rC9 16rF7 16r03 \
  57.         16r23 16r5D 16rB5 16rF3 16rE3 16r03 16r10 16r23 16rA5 16r21 \
  58.         16rC9 16r22 16rC9 16rF6 16r04 16r5B 16rF4 16rF8 16r03 16rF2 \
  59.         16r5C 16rF4 16rF3 16r83 16r00 16rF2 16rF5] \
  60.     #( #getBlock:putBlock:updateBlock:  )) >
  61.  
  62. <primitive 112 pTempVar 12  " performAction: " \
  63.   #( #[ 16r20 16rE1 16r02 16r02 16r5C 16rF3 16rE2 16r02 16r05 16r22 16r21 \
  64.         16r81 16r00 16rF3 16rE3 16r02 16r02 16r5C 16rF3 16r83 16r01 \
  65.         16rF2 16rF5] \
  66.     #( #perform: #getBlock:putBlock:updateBlock:  )) >
  67.  
  68. <primitive 112 pTempVar 13  " getSelector:putSelector: " \
  69.   #( #[ 16r20 16rE1 16r03 16r05 16r23 16r21 16r81 16r00 16rF3 16rE2 16r03 \
  70.         16r06 16r23 16r22 16r24 16r82 16r01 16rF3 16rE3 16r03 16r09 \
  71.         16r24 16r32 16rB6 16rFB 16r03 16r24 16r21 16rB6 16rF3 16r83 \
  72.         16r03 16rF2 16rF5] \
  73.     #( #perform: #perform:with: #value #getBlock:putBlock:updateBlock:  )) >
  74.  
  75. <primitive 112 pTempVar 14  " collectionIndex: " \
  76.   #( #[ 16r20 16rE1 16r02 16r05 16r22 16rA5 16r21 16rB1 16rF3 16rE2 16r02 \
  77.         16r0C 16r22 16rA5 16r21 16r23 16rD0 16rF2 16r22 16r30 16r21 \
  78.         16r82 16r01 16rF3 16rE3 16r02 16r0E 16r23 16r32 16rB6 16rFB \
  79.         16r08 16r23 16r30 16rB6 16rFC 16r03 16r24 16r21 16rC9 16rF3 \
  80.         16r83 16r03 16rF2 16rF5] \
  81.     #( #at #changed:with: #value #getBlock:putBlock:updateBlock:  )) >
  82.  
  83. <primitive 112 pTempVar 15  " subjectChannel: " \
  84.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16rF5] \
  85.     #( #model:  )) >
  86.  
  87. <primitive 112 pTempVar 16  " model: " \
  88.   #( #[ 16r10 16r20 16r81 16r00 16rF2 16r21 16r60 16r20 16r90 16r01 16rA2 \
  89.         16rF7 16r04 16r10 16r20 16r81 16r02 16rF2 16rF5] \
  90.     #( #removeDependent: #dependents #addDependent:  )) >
  91.  
  92. <primitive 112 pTempVar 17  " initialize " \
  93.   #( #[ 16r20 16r90 16r00 16rF2 16r20 16rE1 16r01 16r03 16r21 16rA5 16rF3 \
  94.         16rE2 16r01 16r04 16r21 16r22 16rB5 16rF3 16rE3 16r01 16r04 \
  95.         16r22 16r31 16rB6 16rF3 16r83 16r02 16rF2 16rF5] \
  96.     #( #initialize #value #getBlock:putBlock:updateBlock:  )) >
  97.  
  98. <primitive 112 pTempVar 18  " getBlock:putBlock:updateBlock: " \
  99.   #( #[ 16r21 16r61 16r22 16r62 16r23 16r63 16rF5] \
  100.     #(  )) >
  101.  
  102. <primitive 112 pTempVar 19  " on: " \
  103.   #( #[ 16r20 16rA0 16r21 16r81 16r00 16rF3 16rF5] \
  104.     #( #model:  )) >
  105.  
  106. <primitive 98 #PluggableAdaptor \
  107.   <primitive 97 #PluggableAdaptor #ValueModel #AmigaTalk:General/PluggableAdaptor.st \
  108.    #(  #model #getBlock #putBlock #updateBlock ) \
  109.    #( #renderingValueUsingSubject: #makeAdaptorForRenderingStoreLeafInto:  \
  110.        #isProtocolAdaptor #removeDependent: #addDependent: #update:with:from:  \
  111.        #valueUsingSubject: #value #setValue: #model #selectValue: #performAction:  \
  112.        #getSelector:putSelector: #collectionIndex: #subjectChannel: #model: #initialize  \
  113.        #getBlock:putBlock:updateBlock: #on:  ) \
  114.   pTempVar 6 10 > #ordinary >
  115.  
  116.